generic
max : integer := 32;

package Gramatica is
	package mypila is new cpila(element => node);
	use mypila;
  type expr is private;

	procedure gE(exp: in out expr);
	procedure gT(exp: in out expr);
	procedure gF(exp: in out expr);

private
  type expr is record
    val: string(1..max);
    n: integer;
  end exp;

end Gramatica;
